java - 有没有办法在 delphi(Pascal 对象)中像在 java 中那样为每个对象创建一个？